home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
btype.lst
< prev
next >
Wrap
File List
|
1991-09-17
|
719b
|
20 lines
Voyager-generated listing of BTYPE by Joe Horn
02D9D ::
18AB2 CK1NOLASTWD * Verify DEPTH ≥ 1
62CB9 DUPDUP * ob --> ob ob ob
62035 DUPTYPEIDNT? *
619BC IT * do next ob if True, else skip
02D9D ::
0797B @ * recall w/ True if ok, False if not found
619BC IT * do next ob if true, else skip
60F9B SWAPDROP * ob1 ob2 --> ob1
03188 DUP * ob --> ob ob
0312B ;
1A1FC Internal BYTES (1:Any except Global)
60F9B SWAPDROP * ob1 ob2 --> ob1
03223 SWAP * ob1 ob2 --> ob2 ob1
15CBB get object type description (as String)
05E81 >TAG * tag ob with type, e.g. Real Number: 2.5
0312B ;